home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
unclexmas
< prev
next >
Wrap
Text File
|
2007-02-28
|
996b
|
41 lines
0010 DIM SENDER$ OF 30, DATE$ OF 20
0020 DIM RECIPIENT$ OF 30, ANSW$ OF 2
0030 //
0040 CLEAR'TO(3)
0050 PRINT "WHAT DATE (E.G. NOV. 12 1979)",
0060 INPUT DATE$
0070 SENDER$:="HANNIBAL"
0080 //
0090 REPEAT
0100 CLEAR'TO(3)
0110 PRINT "TO WHOM",
0120 INPUT RECIPIENT$
0130 PRINTOUT
0140 PRINT
0150 PRINT "MORE X-MAS CARDS (Y/N)",
0160 INPUT ANSW$
0170 UNTIL ANSW$="N"
0180 CLEAR'TO(3)
0190 PRINT "OK, THAT'S IT. DON'T FORGET"
0200 PRINT "TO PUT THE STAMPS ON!"
0210 //
0220 PROC PRINTOUT
0230 CLEAR'TO(2)
0240 PRINT " ODDINGTON, ",DATE$
0250 PRINT
0260 PRINT "DEAR ",RECIPIENT$
0270 PRINT
0280 PRINT "I WISH YOU A MERRY CHRISTMAS AND"
0290 PRINT "A HAPPY AND PROFITABLE NEW YEAR."
0300 PRINT
0310 PRINT " LOVE FROM"
0320 PRINT " ",SENDER$
0330 ENDPROC PRINTOUT
0340 //
0350 PROC CLEAR'TO(X)
0360 //THIS PROCEDURE
0370 PRINT CHR$(147) //CLEARS THE SCREEN
0380 FOR I:=1 TO X DO PRINT //AND SENDS
0390 //THE CURSOR X LINES DOWN
0400 ENDPROC CLEAR'TO